home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / DTS Sample Code / System 7.0 Samples / ProcDoggie 1.0a6 / UProcessLDEF.p < prev    next >
Encoding:
Text File  |  1991-02-07  |  2.5 KB  |  96 lines  |  [TEXT/MPS ]
  1. UNIT UProcessLDEF;
  2.  
  3. {-------------------------------------------------------------------------------
  4. #
  5. #    Apple Macintosh Developer Technical Support
  6. #
  7. #    Data structures for process-list LDEF
  8. #
  9. #    Program:    ProcDoggie
  10. #    File:        ProcessLDEF.p - Pascal Implementation
  11. #
  12. #    by:        Forrest Tanaka
  13. #
  14. #    Copyright © 1988-1991 Apple Computer, Inc.
  15. #    All rights reserved.
  16. #
  17. --------------------------------------------------------------------------------
  18. #
  19. #    This LDEF is a simple replacement for the standard LDEF.  The only advantange
  20. #    this LDEF has over the standard LDEF is that it contains information specific
  21. #    to processes that aren’t displayed.  This is to make identifying processes in
  22. #    the Process List window easier.
  23. #
  24. #    Once the icon utilities are released to the developer community, this LDEF
  25. #    will be updated to display the icon of each process in the list.
  26. #
  27. -------------------------------------------------------------------------------}
  28. {[j=20/57/1$] Pasmat Options}
  29. {$R-}
  30.  
  31.  
  32. INTERFACE
  33.  
  34.  
  35. (*******************************************************************************
  36. * Used Units
  37. *******************************************************************************)
  38.  
  39.     USES
  40.         (* Group 1 *)
  41.          Types
  42.         ,QuickDraw
  43.  
  44.         (* Group 2 *)
  45.         ,Events
  46.         ,OSUtils
  47.         ,SegLoad
  48.         ,SysEqu
  49.         ,TextEdit
  50.         ,ToolUtils
  51.  
  52.         (* Group 3 *)
  53.         ,Files
  54.         ,Lists
  55.         ,Processes
  56.         ,Script
  57.         ;
  58.  
  59.  
  60. (*******************************************************************************
  61. * Types
  62. *******************************************************************************)
  63.  
  64.     TYPE
  65.         ProcessListInfoRec = RECORD
  66.             processName:    Str31;               {Process’s name}
  67.             serialNumber:   ProcessSerialNumber  {Process’s serial number}
  68.         END;
  69.         ProcessListInfoPtr = ^ProcessListInfoRec;
  70.  
  71.  
  72. {$S Main}
  73. (*******************************************************************************
  74. * ProcessList - Entry point to the List Definition Procedure
  75. *
  76. * This is the entry point to the custom list defproc used in ProcDoggie.  It
  77. * isn’t really intended to be called directly from any part of this application,
  78. * I’m just including it in the INTERFACE portion so that the linker has
  79. * something to grab onto.
  80. *******************************************************************************)
  81.  
  82.     PROCEDURE ProcessList (message:    Integer;
  83.                            selectCell: Boolean;
  84.                            cellRect:   Rect;
  85.                            theCell:    Cell;
  86.                            dataOffset: Integer;
  87.                            dataLength: Integer;
  88.                            theList:    ListHandle);
  89.  
  90.  
  91. IMPLEMENTATION
  92.  
  93.     {$I UProcessLDEF.inc1.p}
  94.  
  95. END.
  96.